<%@ LANGUAGE="VBSCRIPT" %>
<%'  ------------------------------------------------------------
  '  propbanner.asp 
  '  ------------------------------------------------------------
  '  VCS INFO:
  '  
  '  $Revision:   1.17  $
  '  $Date:   19 May 1998 12:14:50  $
  '  $Author:   shsieh  $
  '  $Workfile:   propbanner.asp  $
  '  ------------------------------------------------------------
  '  All Rights Reserved.  Copyright (c) 1988-1998 FileNET Corp.
  '  ------------------------------------------------------------
  '%>
<%
'Panagon IDM Web application uses the Session variable LibraryLogonID to keep track of
'whether the user has logged on.
'Please see logoncall.asp to see how the Session variable LibraryLogonID is set.

IsLoggedOn = (Len(Session("LibraryLogonID")) > 0)
%>

<%
'This property page can be used for Folder or Document, depending on the Type value
'passed in.
ObjType = CInt(Request.QueryString("Type")) %>

<HTML>
<HEAD>
  <META NAME="GENERATOR" CONTENT="Adobe PageMill 2.0 Mac">
  <TITLE>Panagon IDM Property Banner</TITLE>
</HEAD>
<BODY BGCOLOR="#ffffff" BACKGROUND="images/grayban.jpg">

<TABLE BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<% 'If ObjType is Document
if ObjType = Application("idmObjTypeDocument") then %>
<TD><IMG SRC="images/docpro.gif" WIDTH="318" HEIGHT="80" ALIGN="BOTTOM" NATURALSIZEFLAG="3"></TD>
<% else ' ObjType is Folder %>
<TD><IMG SRC="images/folderp.gif" WIDTH="279" HEIGHT="80" ALIGN="BOTTOM" NATURALSIZEFLAG="3"></TD>
<% end if %>
<TD WIDTH="523%" NOWRAP>
<P ALIGN=RIGHT>
<A HREF="browser.asp" TARGET="_top"><IMG SRC="images/browicon.gif" WIDTH="82" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>
<A HREF="search.asp" TARGET="_top"><IMG SRC="images/search.gif" WIDTH="79" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>
<A HREF="viewer.asp" TARGET="_top"><IMG SRC="images/viewlink.gif" WIDTH="60" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>
<%
'If the user has logged on to a Document Services Library, then support additional
'features like Add Document and Checked Out List.

if IsLoggedOn then 
	LibraryLogonID = Session("LibraryLogonID")
	Set LibraryObj = Server.CreateObject("IDMObjects.Library")
	LibraryObj.LogonId = LibraryLogonID
	if LibraryObj.SystemType = Application("idmSysTypeIS") then %>
<A HREF="help/idmwebhelp.asp?HelpTopic=Property&ObjType=<%= ObjType %>" TARGET="_top"><IMG SRC="images/help.gif" WIDTH="59" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>
<% else %>
<A HREF="adddoc.asp" TARGET="_top"><IMG SRC="images/adddoc.gif" WIDTH="63" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>
<A HREF="checkedout.asp" TARGET="_top"><IMG SRC="images/checkot.gif" WIDTH="96" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>
<A HREF="help/idmwebhelp.asp?HelpTopic=PropertyDS&ObjType=<%= ObjType %>" TARGET="_top"><IMG SRC="images/help.gif" WIDTH="59" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>
<%	end if 
end if %>
<A HREF="home.asp" TARGET="_top"><IMG SRC="images/homelink.gif" WIDTH="68" HEIGHT="71" ALIGN="BOTTOM" NATURALSIZEFLAG="3" BORDER="0"></A>&nbsp;</TD>
</TR>
</TABLE>
</BODY>
</HTML>
